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Si bien, la elección de un ordenador es 
importante más importante es todavía el saber 
estructurar las instrucciones para lograr una 
mayor eficacia. 

La utilización de un método estructurado facilita 
el desarrollo de los programas y sus posibles 
modificaciones si fueran precisas. De esta 
forma, veremos que programar no consiste en 
escribir el mayor número posible de líneas, sino 
que es mucho más interesante la calidad que la 
cantidad. : 
Por esto, una sugerencia que os hacemos, es 
que intentéis variár los programas que os 
listamos e intentéis mejorarlos. 
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EXPLICACION H 
+ DE Los PROGRAHAS —(¿ 


110” CURSO DE BASIC. BAS-3 


20 ” | 
30 COLORO, iy1: OPEN*GRP: "A hi: Lua 1: : GOSUBIOOO | 


: MOD 1 de a E + 


50 PLAY"SIMSOOTZSSL64":FORZ= babe K=0: READES | 

55 IFES=""THENSO EN | Ly i 

¡60 FORX=40TOKSTEP-1:LOCATEX, Z: ¿PLAY"N=xp 0" Ls | 
| 70 FORT=1T050: NEXT: PRINTMIDS(E$, 1,40-POS(0)):NEXT:K=K+LEN(EB)+1 

(80 IFPLAY(1)=-1THENSOELSENEXT | 
90 IFINKEYS= ""THEN9OELSECLS | 
¡100 C$=CHR$(34):LOCATE4,2:PRINT"CON PRINT PINTAMOS EN LA PANTALLA; "¿LOCATEZ. ¿S:PR 
“INT"CONSTANTES NUMERICAS"¿LOCATE 0,8: PRINT"PRINT "¡C$1"012345":C$:LOCATEO, 10: PRI 
[NT"LO QUE SE REPRESENTA COMO: ":PRINT: PRINT" 0123: 43" GO0SUBIS00 ++ 
(110 LOCATE2,5:PRINT"CONSTANTES ALFANUMERICAS":LOCATE 0,8:PRINT"PRINT "3C%3 "HOLA" 
(3C$:LOCATEO,10:PRINT"LO QUE SE REPRESENTA COMO: ":PRINT:P INT"HOLA":GOSUB9500 
¡120 LOCATEZ,5: ¡PRINT"VARIABLES NUMERICAS":PRINT:PRINT"SI A=123":LOCATEO, 101PRINT" 
¡Y TECLEAMOS: _ERINT, A":LOCATEO, 12;PRINT"APARECERA EN PANTALLA: ":PRINT:PRINT" 123 


500 E q | + NS A 
| $ ¡ + ; 4 4 ¿ | 4 j j ; j + 4 Í ¿ + 4 4 


1] 

| 

| 

| | | 
j 

! 
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"+PRINT:PRINT"OBSERVA QUE LOS NUMEROS SE REPRESENTAN CON ESPACIOS A DERECHA E 1 

ZQUIERDA" ; 

130 GOSUB9550:LOCATE4,2:PRINT"SEPARADORES QUE AFECTAN A PRINT:":LOCATEZ.5:PRINT" 

EL SEPARADOR VACIO O NULO ES <j>":¿LOCATE 0,8:PRINT"SI A NUESTRO MSX LE DECIMOS " 

:LOCATEO, 10: PRINT"PRINT "5C%;"HOLA"3C%$3;"3"3C$%3 "BUENOS DIAS":C$:PRINT 

140 PRINT"APARECERA EN PANTALLA: ":PRINT:PRINT"HOLABUENOS DIAS":PRINT:PRINT"PORQU 

E 5 NO SEPARA NI CONSTANTES NI VA- RIABLES ALFANUMERICAS. ": GOSUB9500 

150 LOCATE2.5:PRINT"EL OTRO SEPARADOR ES <,>":LOCATE 0.8:PRINT"SI TECLEAMOS":LOC 

ATEO, 12:PRINT"PRINT "5C$5"HOLA";C%$;","3C%$; "BUENOS DIAS":3C$:PRINT 

160 PRINT"PINTARA EN PANTALLA: ":*PRINT:PRINT"HOLA". "BUENOS DIAS” :PRINT:PRINT"PART 

E LA PANTALLA EN DOS PARTES": GOSUB9500 

170 LOCATEO,5:PRINT"COMO LOS NUMEROS SE REPRESENTAN DEJANDO ESPACIOS EL SEPARADO. 

R 5 MO JUNTA UNOS NUMEROS CON OTROS.":LOCATE O,10:PRINT"SI A=123 Y B=456" 

180 A=123:B=456:PRINT:PRINT"PRINT AjB PINTARA: ":PRINT:PRINTA¡B:PRINT:PRINT"PRINT 
A.B PINTARA: ":PRINT:PRINTA,B: GOSUB9550 

190 LOCATE2,2:PRINT"TABULADO Y ESPACIADO CON PRINT: ":LOCATEO.5S:PRINT"ESTO SE REA 

LIZA CON DOS FUNCIONES":PRINT:PRINT"EL TABULADO LO REALIZA.LA FUNCION TAB(N)DOND 

E N ES EL NUMERO DE COLUMNA DE LA PANTALLA DONDE SE COLOCARA EL PRIMER CARA 

CTER DE UNA CADENA" 

200 PRINT:PRINT"EL ESPACIADO LO REALIZA SPC(M) DONDE M ES EL NUMERO DE ESPACIOS 
PARA COLOCAR LA SIGUIENTE CADENA.” 

210 PRINT:PRINT"SI LOS NUMEROS N O M SON MAYORES QUE LA ANCHURA DE LA PANTALLA P 

RINT SALTARA A LA LINEA SIGUIENTE. ":GOSUB9550 

220 LOCATE2,3:PRINT"TABULADO: FUNCION TAB(N)":LOCATEO.S:PRINT"SI TECLEAMOS PRIN 
"$C$5"HOLA"5C$;"5TAB(30)3"5C$3"ADIOS"5C$:PRINT:PRINT"PRINT PINTARA: ":PRINT:PRIN 

T"HOLA"5TAB(30)5 "ADIOS" 

230 PRINT:PRINT"DE FORMA QUE LA A DE ADIOS ESTA EN LA COLUMNA 30 DE LA PANTALL 

A. ":GOSUB9550 

240 LOCATE2,3:PRINT"ESPACIADO: FUNCION SPC(M)":LOCATEO.S:PRINT"SI TECLEAMOS PRIN 
"$065 "HOLA"3C$;"3SPC(30)5"5C0$3"ADIOS"5CS$:PRINT:PRINT"PRINT PINTARA: ":PRINT:PRIN 

T"HOLA"5SPC (30); "ADIOS" 

250 PRINT:PRINT"DE FORMA QUE LA A DE ADIOS ESTA SEPARADADE HOLA EN 30 ESPACIOS, 

ES DECIR, EN LA COLÚMNA 34.":GOSUB9550 

260 LOCATEO,1:PRINT"HASTA AHORA HEMOS VISTO LA SEPARACION HORIZONTAL EN LA PAN 

TALLA. SI QUEREMOS SEPARAR EN VERTICAL PODEMOS UTILIZAR PRINT VACIOS, ES DEC 

IR, SIN NADA DETRAS. ":PRINT:PRINT"SI DECIMOS: ":PRINT"PRINT"+Cs$; "HOLA"+C%i ":PRINT 

SPRINT"3C%5 É 

270 PRINT"ADIOS"5;C$:PRINT:PRINT"APARECERA: "¿PRINT:PRINT:PRINT"HOLA";PRINT:PRINT" 

ADIOS":PRINT:PRINT"ADIOS ESTA 2 FILAS MAS ABAJO QUE HOLA PORQUE EL PRINT QUE H 

AY ENTRE LAS DOS CADENAS A DEJADO UNA LIBRE": GOSUB9550 

280 LOCATEO, 1:PRINT"EL CONTROL COMPLETO DE LA REPRESENTACIONEN PANTALLA CON PRIN 

T SE CONSIGUE CON UNA INSTRUCCION DISTINTA QUE INDICA EN QUE CASILLA DE LA 
PANTALLA, TANTO HORIZONTAL COMO VERTICAL, VA A PINTARSE LA CADENA" 

290 PRINT:PRINT"ESTA INTRUCCION ES LOCATE X,Y DÓNDE X ESEL NUMERO DE COLUMNA E Y 
EL DE FILA":PRINT:PRINT"UN EJEMPLO ES: ":PRINT:PRINT"LOCATE 16,16:PRINT"3C%3 "HOL 
"5C$:PRINT:PRINT"QUE HACE: ":LOCATE16, 16:PRINT"HOLA” 

300 PRINT:PRINT"LA H DE HOLA ESTA EN LA COLUMNA 1ó. FILA1ó DE LA PANTALLA": GOSUB 

9550 

310 PRINT"AHORA ABANDONARAS EL PROGRAMA PARA QUE PUEDAS PRACTICAR CON PRINT. CU 

ANDO QUIERAS CARGAR EL SIGUIENTE PROGRAMA PULSA LA TECLA DE FUNCION Fi”: 
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KEY1,"GOTOSOO"+CHR$(13) : GOSUB2550:CLS:END 
500 COLOR15,4,4:CLS:CLEAR:LOCATE4, 10: PRINT"PARA EL SIGUIENTE ROPA RAE DOc1ES, 1 
Z2:PRINT"PULSA PLAY EN EL CASSETTE" :KEY1, "color ":CLOAD 


9000 DIMC (20, 1): RESTORE9100: FORZ=1T020: READES$, C(Z,0),.C(Z,1):LINE(O, 0)-(10, 10),1, 


BF: DRAW"BMO,O"¡PRINTR1,E$:T$="":FORX=0T07: Té=T$+CHR$ (VPEEK(X)): NEXT: ¡SPRITES(Z)=1 

$:NEXT:COLOR15 | | ¿ 
9010 SOUND1,O:FORZ=1T020:XI=INT(RND(1)%241): YI=RND(-TIME):YI=32X(YI<.5)+(-191)*( 
YI>=.5):S0UND8S.8:X=(C(Z.0)-XI)/ABS(CIZ, 1)-Y1):FORY=YITOC(Z, 1) STEPSGN(C(Z, 1)-Y1):; 
SOUNDO, ÁBS (Y) :PUTSPRITEZ, (XI, Y),15,Z:XI=XI+X3NEXT:NEXT 

9020 FORZ=2T013:PLAY"N=Z;"¡LINE(0,0)-(255,191),Z, BF:NEXT:FORZ=1T025: ¡C=INT (RND (1) 
*15+.5): IFC=13THENC=1 | 

9030 SOUND1,C: SOUNDO, 100: SOUNDS, 8: FORX= 11020: PUTSPRITEX, (C(X; 0)+C(X,1))+C+X:NEXT 
NEXT: SOUNDS, O: ERASEC:RETURN 

9100 DATAC,48,0,U,68,10,R,88,20,5S, 108, 30,0,128,40.D.168.50.E.188.60.B.38.100.4,5 
8,110,5,78,120,1,98,130,C,118,140,M,158,150,5,178,160.X.198.170,T.68,70,E,88,80, 
M,108,90,5,128,100,3,168,100 

9200 DATACURSO DE BASIC ,,TEMA 3 ,,EN ESTE TEMA VAMOS A VER TODO LO ¿RELACIONADO 
CON LA INSTRUCCION PRINT. ,,LA INSTRUCCION PRINT ES UNA DE LAS MAS ,UTILES EN P 
ROGRAMACION BASIC. ,, | | | | | 
9210 DATASE UTILIZA NORMALMENTE PARA REPRESENTAR .CONSTANTES Y VARIABLES EN PANT 


ALLA. ,,OTROS USOS IMPORTANTES PUEDEN SER EL .ENVIO DE INFORMACION A LOS DEMAS P 
ERI--,"FERICOS COMO-LA IMPRESORA, EL CASSETTE ",O LA UNIDAD DE DISCO. + 
2220 DATA."  PULSA CUALQUIER TECLA PARA CONTINUAR " 


9500 BEEP:LOCATE 2,21:PRINT"PULSA CUALQUIER TECLA PARA CONTINUAR" 
9510 IFINKEYS$=""THEBN9S1O p | 

9520 J$=STRINGS$ (40,32) : FORY=3TO21:LOCATEO, Y: PRINTIS$: NEXT: RETURN 
9550 BEEP:LOCATE 2,21:PRINT"PULSA CUALQUIER TECLA PARA CONTINUAR” 
9560 IFINKEYS$=""THEN9S60ELSECLS: RETURN 


) ; 4 4 4 
j ; 
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TRIANGULO MAGICO 


Í 
j 


¿ 


| 1.2 KEY OFF: SCREENO: WIDTH38: SPLAR 1,15, is: RESTORE 10000:FOR 1=0 TO 21:READ X*$:LOCA 
| TE O, I:PRINTXS:NEXTI 


4 X$=INKEYS: 1F X$="" THEN 4 

10 SOUND?, lija isa My +"00110110”):SCREENZ: OPEN"GRP: "ASRi 
50 CLS:NM=0: DRAW" BM 24, Só" PRINTRi,"1:PROBANDO”: DRAW"BM24.66":PRINTRi.”2:NIVEL 1 
":DRAW"BM24, 76": PRINTRI, "3: NIVEL II": DRAW*BM24,86":PRINTAI, "4: FINALIZAR" 

52 X$=INKEYS: IFX$<"1" OR _X$>"4" THEN 52 | 

54 cls: IF X$="4" THEN 5000 ELSE 100 | | 
100 GOSUB 900: GOSUB10O00: GOSUB1100: GOSUB1200 | 

102 IF X$="1" INEN 108 ELSE IF x$="2": THEN 200 ELSE 210 


108 Pg="" | | | 
110 IF P$=L$ THEN 2000 pa UA BN UA 
112 X$=INKEYS: IF X$="" THEN 112 ELSE 1F xB="M% OR x=" THEN 50 ELSE IF Xs$<"1" 


OR X$>"6" THEN 112 ELSE XX=VAL (X%) 
115 GOsuB 120:GOTO 110 
120 NM=NM+1:LINE (160, 152)-(200,160),15,BF:DRAW"BM160.+ 152":PRINTRA, NM 
125 ON XX GOSUB 1500,1510, 1520, 1530,1540,1550 | 
130 IF XX=1 OR XX=4 THEN GOSUB 1000 | 
| 132 IF XX=3 OR XX=6 THEN GOSUB 1100 | 
134 IF XX=2 OR XX=5 THEN GOSUB 1200 | | | 
140 RETURN | A Sn Pal 
200 MO=INT(RND(1)*X8+3):GOTO 250 | | | / p | 
210 MO= INT (RND(2)X20+15):GOTO 250 | | | 
| 250 Ps=L$:LINE(0,168)-(256, 192),12,BF:FOR K=1 TO MO | | | 
252 XxX= INT(RND(3)X5+1):1F XL AND XX=4) OR '(XxY=4 AND XX=1) E (XY=3 AND XX=6) 
OR (XY=6 AND XX= 3) OR (XY=5 AND XX=2) or (XY=2 AND Xx= 5) THEN 252 ELSE IX Y =XX | 
254 GOSUB 125 | | 
256 NEXTK: DRAW"BM28, E E DE MOVIMIENTOS: ":MO: GOTO 110 
900 La= "ABCDEFGHI":LINE (128,13)-(204, > e a LINE (128, 13)-(53.127),4:LINE (204, 128 


] 
| | | | 
j 


| 
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)-(53,128),9:PAINT (128,21),49 

205 DRAW"bmi110,16":PRINTRi,"i 2":DRAW"bm50,109":PRINTRi."ó 3" 
¿DRAW"bmól1.135":PRINTR1."S q" 

907 DRAW"bm36,8":PRINTR1,"A":DRAW"BM28,16":PRINTRi."I B":DRAW"BM20.24":PRINTRi.” 

H  C":DRAW"BM12,32":PRINTR1,"G F ED" | E 

910 COLOR 10:FOR I=0 TO 2:CIRCLE(128+16XI,40+24%*1).9:PAINT(128+16X1I.40+24X1).10: 

CIRCLE (176-32%1,112),9:PAINT(176-32*1,112),10: CIRCLE (80+16X1,112-24X%1),9:PAINT( 

80+16X1,112-24*1I),10:NEXTI: COLOR 1 

920-LINE(22,152)-(200,160),15,BF:DRAW"BM73,152":PRINTRI1. "MOVIMIENTO: 0":RETURN 

1000 PLAY"S8L804E":FOR 1=0 TO 3:X=125+16%X1: Y=35+29XI:LINE(X.Y)-(X+8.Y+10),10,BF: 

X=X+1:Y=Y+1: DRAW"BM=X3,=Y3"¿PRINTR1,MIDS$(L$, 141,1): : NEXTI: RETURN 

1100 PLAY"S8L804A":FOR I1=0 TO 3:X=173-32*1: Y=107:LINE(X,Y)-(X+8,Y+10),10,BF:X=X+ 

1: Y=Y+1:DRAW"BM=X3,=Y3"¿PRINTR1I,MID$(L$, 149,1) :NEXTI: RETURN 

1200 PLAY"S8L804C":FOR 1=0 TO 3:X=77+16*1:Y=107-24*XI:LINE(X.Y)-(X+8,Y+10),10,BF: 

X=X+1:Y=Y+1: DRAW"BM=X3,=Y3":¿PRINTR1,MIDS(L%, 1+7,1):NEXTI:DRAW"bmi126.36":PRINTRi. 

LEFTS(L%$, 1) RETURN 

1500 L$=MIDS$S(L%,9,1)+MIDS$5(L%,1,3)+RIGHTS$(L%,5) : RETURN * 

1510 L$=MID$(L$,7,1)+MID$(L$,2,5)+MID$(L$,8.2)+MID$(L$.1.1):RETURN 

1520 L$=MIDS(L$, 1,3) +MID$(L$,7,1)+MID$(L$,4,3)+RIGHTS(L$, 2): RETURN 

1530 L$=MID$(L$,2,3)+LEFTS(L$, 1) +RIGHTS$(L$, 5): RETURN 

1540 L$=RIGHTS(LS$, 1) +MID$(L$,2,5)+LEFT$(L$, 1) +MID$(LG$.7.2) ¿RETURN 

1550 LS$=LEFTS(LS.3)+MID$(L$,5,3)+MID$(L%,9,1)+RIGHT$(L%, 2) ¿RETURN 

2000 LINE(0,80)-(256,100),5,BF:DRAW"bm96,84":PRINTRi,"ACABASTE":A$="O01LSCEFDGBOZ 

1.4CO3L8CEFDGBO4L4C04L4CEFDGBOSL4C":PLAY"S12"+A$+"S11"+A% 

2002 1F PLAY(1)=-1 THEN 2002 ELSE 50 

5000 CLEAR: COLOR15,4,4:SCREENO:LOCATE 3,10:PRINT"PULSA PLAY PARA PROXIMO PROGRAM 

Aa" 

5010 CLOAD | 

10000 DATA " TRIANGULO MAGICO",," (Recuerdas el cubo m gaico?. Aouvi te”. 

"presento un nuevo solitario, en apa-"."”riencia m s sencillo. pero no te fies",” 

puede llegar a exasperarte.",, 

10002 DATA "Sobre los lados de un tri ngulo tie-"."nes las 9 primeras letras del 
alfabe-","to, estas se mueven empujando desde". "los vortices. Por ejemplo si en 
el la-","do derecho hay: ABCD” 

10004 DATA "y pulsas 1, te cuedar : DABC","y si pulsas 2. te ouedar : BCDA.”"," E 


j 


s decir las tres primeras "tras se","corren un lugar y la Rkltima Salta al”, "otr 
o extremo." 
10006 DATA ” Cuando quieras cortar pulsa M y te", "aparecera el MENU.".." PUL 


SA TECLA PARA COMENZAR" 
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10 ? +++++4++ su MAS ++++4+++ 

zo ?” y 

30 SCREENO:KEYOFF:WIDTH40 

40 OPEN"GRP: "ASRi:COLOR1,10,10 

50 FORZ=1T01849:PRINT"+SUMA”3: NEXT 

60 FORT=1T02000: NEXT: CLS 

70 COLOR1,10,10:LOCATE1S,O:PRINT"S U _M A. S":RESTORE9000: FORZ=1T021:READES:LOCATE 
0,Z+1:PRINTES: NEXT 

80 IFINKEYS$=""THENSOELSECLS 

90 WIDTH39;LOCATE2,8:PRINT"CON lg aida DIGITOS QUIERES LA SUMA?” 

93 ONINTERVAL=50G0SUB490 

100 L$=INKEYS: IFL$=""THEN1OOELSEL=VAL (L$) 

110 IFL<1ORL>9THENBEEP:GOTO1OO 

120 LOCATEZ2,10: PRINT"QUIERES RELOJ (S/N)?" 

130 R$=INKEYS: IFR$=""THEN13OELSEIFRS<>"S"ANDR$< >"s" ANDR$<>"N"ANDR$<>"n"THEN1I3O 
140 COLOR1: WIDTH25:CLS: UlJ 0: 5M=2 

150 CLS:3%$="":TM=0:S0= o: FORZ= 1TOSM: A(Z)=INT(RND(-TIME)X10*L):SO=5S0+A(Z): NEXT 
160 TB=INT (10-L/2+.5): SRE=STRING$(L+3,95) 

170 COLORó6:LOCATE1, 1: PRINTUSING"SUMA RR";SsmM-1 

180 FORZ= 1TOSM:LOCATETRB+L- A 

190 LOCATETB- 1,2+4: PRINTSRS$ 

200 IFR$="S"ORR$="s"”THENINTERVALON: LOCATE1S, 1:PRINT"RELOJ" 

210 LOCATES, 19: 'PRINT" INTRODUCE EL "LOCATE7?. 20: PRINT"RESULTADO” 

220 FORX= ITOLEN(STR$(SO))-1 

230 COLOR1:LOCATETB+L, Z+5:PRINTCHRS$ (219) 

240 K$=INKEYS: IFK$=""THEN240ELSEGOSUB8040 

250 IFK$<>"B"AND(ASC (K%) <48DRASC (K$) >57) THENZ2340 

260 IFK$="B"ANDX>1THENLOCATETB+L,Z+S:PRINT" ":TB=TB+1:X=X-1:S$=MID$(S8%$,2,LEN(S5%) 
) :GOTOZ30:ELSEIFK$="B"THENZ230 
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| Í 
| | 

| | | + 
| en. ! ) | | 
LOCATETB+L,Z+5: PRINTKS: TB= TB- sE Sb=K$+3% 
NEXT: TT=TT+TM | | | | 
a. | | 
S=VAL(S$) | | | | 
SN=10:FORY= 191020: FORX=1T019: BEEP:SN=SN+1: ¿LOCATEX. Y: dun dd "NEXT: Y 
IFS=SOTHENLOCATE4, 19: PRINT"FELICIDADES'ELSE350 
RESTORE9100: FORX= 00 TON 5L64N= Xi" | 
IFPLAY(1)=-1THEN33S | | | 
NEXT: COLOR1:FORT=1T02000: NEXT: GOTO4Z20 | | | 
“LOCATEZ2,19: PRINT"LO SIENTO, LA SUMA" :LOCATES, 20:PRINT"NO ES CORRECTA" 
RESTORE9100: FORX= 3OTOZOSTEP- 1: READCC: ¿COLOR, E PLAY"T100120N= xp 
IFPLAY(1)=-1THEN365 | | | | 
NEXT: COLOR1:FORT=1T02000: NEXT | ' | | 
¿LOCATE1,22:PRINT"LA REPETIMOS (SNA — A ¿ 
G$=INKEY$: IFG$=""THEN390ELSEGOSUBS000: 1FOw<>"SUANDOS<>"N"THENSIO 


| ' 
| 


IFG$="S"AND(R$="S"ORR$="s")THENTM=0 ' | | | 
IFG$="S"THENS$="":CLS:; :6OTO160 | | | ' | 
IFSM< 1OTHENSM= Sm+ 1: GOTO150 | | | | 


LN t Un | ere o 
IFR$="S"ORR$="s"THENLOCATE4, 6: PRINT"TIEMPO TOTAL":LOCATES, 8: PRINTUSING"RRRR" | 
| | h- | | 
450 LOCATE4,12:PRINT"OTRA PARTIDA (S/N)" | | Ll h 
460 J$=INKEYS: IE J9="/"THENAROFLSEPORURSOZO: 1FIS<>"S"ANDIS<>"N"THENAGOELSEIFIR="S" 
THENRUN9O | 
470 CLEAR:COLOR15,4,4:WIDTH39:SCREENO:LOCATE4,10: PRINT"PARA EL SIGUIENTE PROGRAN 
A":LOCATE4,12: PRINT"PULSA PLAY EN EL CASSETTE" | | 
480 CLOAD: | | | | 
490 LOCATE15,2:PLAY"T255L6405A":PRINTSTRINGS(5," "):LOCATE1S,2:TM=TM+1:PRINTUSIN | 
G "RARA "3 TM l | | | | | | | 
500 RETURN | | | Je | | 
38000 IFASC (65) < GSTHENSO 1OELSEIFASC (G$) >P0THENGS= CHR$ (ASC (6%) -32) | 
3010 RETURN | ha 
8020 IFASC (3%) <6STHENSOSOELSEIFASC (3%) >90THENJIS= CHR$ (ASC (3%) -32) | 
8030 RETURN | | | A 
| 
' 


| 
| 


] 
1] 


A: e) 


3040 IFASC (K%) <6STHENSOSOELSEIFASC (K%) >POTHENKS= =cHRe (aso (Ke) -32) 

8050 RETURN i ¡ | : 

9000 DATA" Es. un programa para los peques de la".casa Lky no tan peques). +.” «Co | 

n/¡01l podr n entrenarse en pels e Y el ordenador comprobar los, resultados. | 
id una sola cifra. hasta pumandos e nue 


o La suma puede ser desde sumandos de" 


| 
| ' 


ve”, cifras. | » | | | lé.. 

9010 DATA, " Cuando se haya resuelto correctamente". la suma aumentar en dnd el. 

nAmero de,sumandos hasta uh total de nueve." A desea puede haber un reloj 
ue",contar el tiempo PA dl dd ió LU | | y | 

3020 DATA" Para borrar un nfmero pulsa la tecla B"., ss REERAApACOUzER TECLA P 


DB 


RA COMENZAR" | | 


9100 DATAd, 2,3,4,5,6,7,8,9110, 11,12,13, 19,156, 2,/14/.2+4,5/1P.3.2.8 
| 
| | 


| 
| 


+ 


E | 
mE | | | 
| ¡ | | 


| 
| 
ñ 
| 
E 
| | 
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| 


SN 


TANQUE 


10% << T-A-N-D-6.E-9>>- Ed | 
20 ” | | 
30 CLEAR1000: COLOR15,5,5:KEYOFF:SCREEN1,2:WIDTH29: OPEN"GRP: "ASRh1:RESTORE 

- 40 FORZ=0T020:READE$: LOCATEO, Z: PRINTES: BEEP:NEXT:PLAY"L6á402F": GOSUB9500:kK=64: FOR 
Z=-16T0255: PUTSPRITEZ, (2,175),15,2: 1FZ/5=INT(Z/S5)THENPLAY"s8mi00t255164n=k:i" 
47 K=K-.Z2:NEXT:LOCATEO,22:PRINT” PARA CONTINUAR PULSA TECLA":DS=-1 
50 IFINKEY$=""THENSO 
60 COLOR, , 1: SCREENZ: GOSUB800: GOSUB9IZ20 
70 DS=DS+1: GOSUB840: GOSUB910:LINE(0,11)- (255, 201,454 BF: COLOR: DRAW"BMZ20, 12":PRIN 
Tri," (ANGULO (10-89 arados)?" 
30 Al$=INPUTS$(1):A1= ASC (A1%) : IFA1<490RA1 >S6THENSOELSEBEEP; DRAW"bm220+12":PRINTRI 
¿15 
90 A2Z$=INPUT$(1): AZ=ASC (A25%) : IFA2<480RA1 >57THENSOELSEBEEP: DRAW"bm228.12":PRINTR1I 
¿A2% | | 
100 AD=163: AN$=A1$+A2$: AN=VAL (AN$): IFAN>944THENPUTSPRITEZ, (-16,191).++.2:PUTSPRITES. 
: (XT,175),15.3:AD=159 
110 LINE(O,11)-(255,20),15,BF:COLOR1:DRAW"BM20,12":PRINTRi+, "(FUERZA (100-9929)7" 
120 A1$=INPUTS(1):A1=ASC(A15$): IFA1<490RA1>57THEN1ZO0ELSEBEEP: DRAW"bm200, 12": PRINT 


¡SES 

130 A2$=INPUTS$(1):A2=ASC (A2$) : IFA2<480RA2>57THEN13OELSEBEEP: DRAW"bm208.12":PRINT 
1, A25$ 

140 A3$=INPUTS$(1):A3=ASC(A3%) : IFA3<480RA3>57THEN140ELSEBEEP:DRAW"bm216.12":PRINT 
1,03% 

150 AN$=A1$+A2$5+A3%: FZ=VAL (AN$) | | 

160 LINE(0,11)-(255,20),15,BF:DRAW"bmi0, 12"PRINTR1, "ANGULO; *i N:DRAW"BM130.12": 


PRINTRi. "FUERZA: "+FZ 

170 ONSPRITEGOSUB1200: SPRITEON 

180 F=1:X0=XT+16:R=FZ/4:A1=3.14-AN*X6.28/360: AD=AD+SIN(4.71-AI)XR: CR=XO+ABS (COS (4 
¿71-ATI)XAR):X0=X0-COS(3.19-AI)XR:GOSUBSOO: GOSUB91O 

185 IFZ<-POTHENZOOELSELINE(0O,11)-(255,20),5, BF: GOSUB910 
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190 F=21AD=179: X0=XN:R=(XN-XT+48)/2:A1=.785:AD=AD-16+SIN(AI)XR:CR=XO-R+(COS(A1I)X 
R/2-8) : GOSUB?0O | | 

200 GOSUB850: GOSIUJB920 

210 LINE(O,11)-(255, 201,8, BF: COLORIS: 'DRAW"BMS5, 12":PRINTR1. "CONTINUAMOS CON LA PA 
RTIDA (S/N>)" PA] 

220 RS=INPUTS (1) 1FR$="S"ORR$="s"THEN7OELSEIFRS<>"N"ANDR$< >"n"THEN220 

230 COLOR15,4,4:SCREENO: WIDTH39:CLEAR200:LOCATEZ.10:PRINT"PARA OTRA PARTIDA PULS 
A LA TECLA P":LOCATE 2,12:PRINT"PARA PASAR A OTRO PROGRAMA PULSA F" 

240 R$=INPUTS (1): IFR$="P"ORR$="p"THENRUNELSEIFRS< >"F"ANDR$< >"+ "THENZ240 

250 CLEAR:CLS:LOCATES, 10:PRINT"PARA EL SIGUIENTE PROGRAMA" ¿LOCATE4. 12: PRINT"PULS 
A PLAY EN EL CASSETTE" | 

260 CLDAD 

500-5=255: A "160v1203c", "15002": FORZ=4:71-AITO-.5STEP=.05:X0=CR+1 
NT(COS(Z)XR+.5): YO=AD- INT(SINIZ)AR+. 5) : SOUND1, 1: SOUNDS, 5: SOUNDO,S:S=S-4: PUTSPRIT 
ES, (X0, YD),15,5 

510 IFXO>2550RYO>1770RYO<-14THENZ=-1.95 

520 T=POINT(XO,YO+16): IFT=9THENZ=-3.95 

530 NEXT+S SOUNDS, 0: PUTSPRITES, (-16,191),,5: IFZ=-4THEN600 

550 RETURN | 

600 ión PF- 50: GOSUB3000: GOTOSSO | | | 

700 S=255; PLAY"1é60v1402c","1é60v1Z2o3c","15002f":FORZ=A1TO3.5STEP.05:X0O=CR+INT(COS 


AZ) ARA. 5): YO0=AD- INT(SIN(Z)%R+.5):SOUND1, 1: SOUNDS, 5: SOUNDO,S:5=S-5:PUTSPRITES, (X0. 


YD), 15,9 | | 

710 IFXOCOORYO>175THENZ= 6.23 | | 

720 T= =POINT(XO, YO+16) : IFT=9THENZ=4.66 

730 NEXT: SOUNDS, 0: PUTSPRITES, (-16, 191), +5: 1F2=4.68THEN760 | 


740 RETURN — r 
760 GOSUB3000: GOTO740 | | 
800 DRAW"EM20,1":PRINTRI, "UN MOMENTO POR FAVOR": DRAW"BM20, 11":PRINTR1, "ESTOY PRE 


PARANDO EL PAISAJE" | 

310 N=RND(-TIME):PSET(0,150),12:FORZ=3. 14TOOSTEP=, 15 X=127+C08(Z)X200: Y=191-SINIZ 

)X1SO: YY=RND(1)*20: Y=Y+YY: IFX<- 200RX>270THENS1SELSELINE=-(X, Y); 12 

815 NEXT¡LINE(O,100)-(255,191),12,BF:PAINT(127,98),12 | 

820 PSET(0,150),2:FORZ=3. 14TOOSTEP-.1: X=127+C08S(Z)*150:Y=191-SIN(Z)X120: YY=RND (1 

20: Y= Y+YY: IFX<10RX>280THENS2SELSELINE-(X, Y) +2 | 

825 NEXT:LINE(O0,150)=(255,191),2.BF:PAINT(127,148),2 — 

830 PSET(0,170),3:FORZ=3. 14T0-. 1STEP-=1: X=127+C05S(Z)X127:Y=191-SIN(Z)X90: YY=RND ( 

1) 20: Y=Y+YY3LINE-(X, Y), 3:NEXT:PAINT(127,191)+3: RETURN | 

840 COLOR9: XE= INT(RND(1)X75)+80; AE=INT(RND(1)X6) +3: FORY=191- AEXSTO191STEPS: DRAW" 

BM=XE5,=Y5":PRINTRA,"i, Ui":NEXT: RETURN el | | E 

850 COLOR3:FORY= 191- AEXSTO191STEPO: DRAW" BM= _XES + =Y3"3PRINTNA, "¡5 5": NEXTICOLORIS:R 

ETURN | | | | 

910 LINE(0,0)-(255,10),1,BF: COLOR15: DRAW"bm10, 1":PRINTRA, USING"DISPAROS: PeRePeRe" 3 DS 

¿ DRAW"BM140, 1":PRINTR1,USING"PUNTOS: +ReReReReRe" 5 PT: RETURN | 

920 N=RND(-TIME)3XT=INT(RND(1)X51):PUTSPRITE3, (-16, 191), +3: PUTSPRITEZ, (XT,175),1 

5,2: XN=INT(RND(1)%51)+188: PUTSPRITES, (XN,175)+1,4: [RETURN | 

1200 SPRITEOFF: IFF=1THENZ=-99:PT=PT+100ELSEZ=99: ie =PT-50 | 
i 
| 


1210 GOSUB3000:GOSUB910: GOSUB850: RETURN 
3000 SOUND8,0:SPRITEOFEF: PUTSPRITES, (-5, 191),,5:PUTSPRITEO., (XO, YO) +6, O: SOUNDO. 100 
¿ SOUND1, 10: FORK= 1TO10O: PUTSPRITE1, (XO, YO).8.1:Ss0Uu 199,8: FORT=1TO10:NEXT:PUTSPRITE 


| 
| 


1 / ¿ 4 ¿ ¿ ¿ + : . : 4 
; | i 


12 - AMIGOS DEL MSX - 1986 


¡ 
¡ 
¡ 
j 


1, (xQ, det SOUND8, 4: FORT=1T010: NEXT: NEXT: PUTSPRITEO, (XO. 191)+.+0: SOUNDS . O¡RETU 


9000 DATA" TANQUE", "El enemigo avanza sobre tu".ciudad con todoa-sds 

carros,de combate.,," Tu misi'n consiste en eli-".minarlos uno a uno con tu, tan 
que.,,”" Para destruirlos tendr s que" | 

9010 DATAhacer un disparo Certero cal-,culando los arados de tiro yola fuerza de 
1 disparo...” Como obst culos tendr s los”.pronios edificios de la: ciu-,dad que 
no debes destruir | PBr> accrdentess 7" Cuidado con el enemiao.” "tiene mucha ques 
ria. ¡ 


9100 DATAS, 85951115535 31) 31,63,63,63,66.183.183. 66. 63....128. 255.255,192,192,2 
52. 232-232-S401-1:2 124-221 A 199; 232y 240, 192, 192.252» 252, 252. 34, RAS 187; 34.,-2 
52 ¡ ¡ 

9110 DATA, ,,),255, 255,1,1, 127, 127, 9, 127, 182. 182.127.16.16. 16. 16.16. 1240, 248,248, 
248,248, 252, 6,254, Los 109, Esto 165, 169,169, 219. 219, 219, 126, 60, 165. 169, 219, 44% 126 
,126,60,60 

9120 DATA,,,3,,192,192 | ¡ | 

9500 FORZ=1T06: FORX=1T08:READE: TS(Z)=T8(Z) +CHRS(E) 1 NEXT: NEXT f 
9510 SPRITES(2I TS (1) 472) 418 (3) 478 (4) ¿SPRITES (76 (1) +18 (2) +T8(5)+T8(6) 

9520 TH="":FORX=1T032: READE: Té=T$+CHR$(E) : NEXT: SPRITES(4)=T%R 

9530 K$=STRINGS$ (8,0) : FORZ= OTO1: T$=K%; FORX=1T08: READE: TH= T$+CHR$ (E) : NEXT: SPRITES ( 
Z)=T$: NEXT | 

9540 T$H= Ks: FORX=1T08: READE: TH= TE+CHR$S(E) NEXT: SPRITES(5)=T%; RETURN | 


_—+ 


t 


e A A 


j 
1 
j 
j 


¡ | | 
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3 
Bild 1-4 Ll] 
j i 


BIORRITMOS 


100 KEY OFF: RESTORE 10000: DIM M(12) :FOR_I= 1 TO 12: READ XiM(1)=X:NEXT I:SCREEN O: 
WIDTH 40:COLOR 15, 9,4: DIM M$(11): FOR 1=0 TO 11: READ X%:M%$(1)=X%: NEXT ¡11 
102 RESTORE 9000: FOR I=0 TO 17:READ X%: LOCATE 3, 1: PRINTXS: NEXT E 

104 x+h= INKEYS: IF X$="" THEN 104 

110 CLS:INPUT"Dia de nacimiento: "3DN | 

112 INPUT"Mes- de- nacimiento; "3MN O E ] 1 | 
114 INPUT"Aso de nacimiento! "3AN | | j 
116 INPUT"Dia actual: "sDA |. | | 
118 INPUT"Mes actual: "¿MA | o] 


j 


| 


120 INPUT"As$o actual:"3AA | | AE a ESAS AL, | 
122 CLS:LOCATE 1,4:PRINT"FECHA DE NACIMIENTO: "5DN;"-":MNi"-"¡AN.,." FECHA ACTUAL 

DUDAS "="GMAr"= "GOA: LOCATE 10.10:PRINT"CONFORME (S/N) " | | | 

128 X$=INKEYS: IF XS="" THEN 128 ELSE IF X%$="S" OR X$="s" THEN 130 ELSE IF X$="N" 

OR-X$="n" THEN 110 ELSE 128 | | i 


130 CLS:LOCATE 18,1: PRINT"MENU":LOCATE 2+62PRINT" 1: BIORRITMOS -DEL-MES"¿LOCATE-2, 
S:PRINT"2: BIORRITMOS MES PROXIMO": LOCATE 2,10:PRINT"3: BIORRITMOS LARGO ALCANZE": 
LOCATE 2, 12: PRINT"4: CAMBIAR FECHAS" ¿LOCATE 2: 19:PRINT"S: FINALIZAR" | 
140 X$=INKEYS: 1F X$=""THEN 140 ELSE IF X$="1" THEN 500 ELSE 1F x$="2" THEN 550 E 
LSE IF X$="3" THEN 200 ELSE 1F x$="4" THEN 110 ELSE 1F X$="5" THEN 5000 ELSE 1340 
200 -X1=AN:XZ2=MM: X3=DN:Y1=AA:Y2=MA: Y3=1:GO0SUB 1000:GOTO 2000 pel 4 
400 CLS:LOCATE 2,10:PRINT"Los gr ficos permanecer n en pantalla hasta cue puls 
es tecla." | 1 

410 RESTORE 10100: FOR I= 220. TO. 223: FOR J=0 TO 7: READ K:VPOKE. 2048+8*X1+J.,K:! NEXT J 
¿1 

915 X$=INKEYS:31F xo THEN 915. 
420 RETURN : 

3500 GOSUB 3400: X1=AN: X2=MN: sl YI= AR: Y2=MA:Y3=1:GOSUB 1000:GOTO 650 
550 GOSUB 400: X1=AN: X2=MN: X3= DN:Y3=1: IF MA=12 THEN Yi=AA+1: pt des 1 | 
552 IF MAX<12 THEN Y1i=AA:Y2= MARI 


j. 


¿ 


t 


14 - AMIGOS DEL MSX - 1986 


554 GOSUB 1000:GOTO 650 

600 CLS:RESTORE 10010:FOR I=1 TO 16:READ X$:LOCATE 35,1:PRINTXS: NEXT 1 

20 FOR _I=0 TO 18:LOCATE 2,I:PRINT" V":NEXT I:LOCATE 2.19:PRINT" Z 0.0_0_0_U_Q_0 
202 LOCATE 1,O:PRINT"1 U":LOCATE 1.9:PRINT"O U":LOCATE 0,18: PRINT"-1 U*:LOCATE 7 
,¿20:PRINT"S 10 115 20 25"¡LOCATE 1,21:PRINTM$(Y2-1):Y1 

604 IF Y2=2 AND Y1R4=Y1/4 THEN LOCATE 31,19:PRINT" Q” 

606 IF M(Y2)>=30 THEN LOCATE 31,19:PRINT" Q U":¿LOCATE 32,.20:PRINT"30" 

608 IF M(Y2)=31 THEN LOCATE 33,19:PRINT" Q". 

610 RETURN 

650 GOSUB S00:ND=M(YZ):1F Y2=2 AND Y1/4=Y1K4 THEN ND=ND+1 

655 FOR I=DIAS TO DIAS+ND-1:X=I-DIAS+3:Y4=9.7-9XSIN(2%*3.14159%X1/23):Y5=9.7-9XSIN 
(23. 14159£1/28) :Y6=9.7-9XSIN(2%3. 14159X1/33) 

670 LOCATE X.Y4:PRINT"F":LOCATE X.YS5:PRINT"E":LOCATE X.Yó6:PRINT"I" 

672 IF INT(Y4)=INT(Y5) THEN LOCATE X,YS:PRINT CHR$(220) 

674 IF INT(Y4)=INT(Yó6) THEN LOCATE X,Yó:PRINT CHR$(221) 

675 IF INT(YS)=INT(Y6) THEN LOCATE X,Yó6:PRINT CHR$(222) 

677 IF INT(Y4)=INT(YS) AMD INT(Y4)=INT(Yó6) THEN LOCATE X,YS:PRINT CHR$(223) 

679 NEXT 1 

700 X*$=INKEYS: 1F X$=""THEN 700 ELSE CLS:GOSUB 601 

705 LOCATE 1,O:PRINT"3":LOCATE O, 18:PRINT"-3" 

708 X$="SUMA DE BIORRITMOS":FOR I=1 TO 18:LOCATE 37,1:PRINTMID$(X*%,1,1):NEXT- 1 
710 FOR I=DIAS TO DIAS+ND-1:X=1I-DIAS+3:Y4=SIN(2%3.14159*1/23):YS=SIN(2*3.14159*1 
/28): Y6=SIN(2%3.14159*1/33) 

712 Z=(Y9+YS+Y6+3)%3:FOR J=18 TO 18-Z STEP -1:LOCATE X.J:PRINT"¡":NEXT J:NEXT 1 
750 X$=INKEYS:-1F X$="" THEN 750 ELSE 130 

1000 DIAS=0:IF Yi-X1=1 THEN 1025 ELSE IF Xi=Y1 THEN 1300 

1005 FOR I=X1+1 TO Y1-1:DIAS=DIAS+365 

1010 IF 1/4=1%4 THEN DIAS=DIAS+1 

1020 NEXT 1 

1025 IF X2=12 THEN 1055 

1030 FOR I= X2+1 TO 12:DIAS=DIAS+M(1) 

1040 IF 1=2 AND X1/4=X1%4 THEN DIAS=DIAS+1 

1050 MEXT 1 

1055 IF Y2=1 THEN 1090 

1060 FOR I=1 TO Y2-1:DIAS=DIAS+M(I) 

1070 IF I=2 AND Y1/4=Y1K4 THEN DIAS=DIAS+1 

1080 NEXT 1 

1090 DIAS=DIAS+M(X2)-X3: 1F X2=2 AND X1/4=X1%4 THEN DIAS=DIAS+1 

1200 DIAS=DIAS+Y3: RETURN 

1300 FOR I=X2+1 TO Y2-1:DIAS=DIAS+M(1):1F 1=2 AND x1/4=X1R4 THEN DIAS=DIAS+1. 
1310 GOTO 1090 

2000 SCREEN 2:LINE(0,0)-(256,130),15,BF:DRAW" CS BM 16,0 D114 BU2 R239 BUS3 L241 
BUZS R4 BD48 L4 BD12 R4 BD24 L4 BD24 R4" 

2010 OPEN"GRP: "ASRi:COLOR S:DRAW"BM7,1":PRINTRi,"1":DRAW"BM?7,26":PRINTR1, "0": DRA 
W"BMO,49":PRINTR1,"-1":DRAW"BM7.61":PRINTR1."3":DRAW"BM7,85":PRINTR1, "0": DRAW"BM 
0,109": PRINTR1,"-3" 

2020 J=MA:X=16:DRAW"BM12,116":PRINTR1,J:FOR I= 0 TO 6:J=J+1:1F J=13 THEN J=1 
2025 X=X+M(J):PSET (X,113),12:PSET (X,114),12:K=X-9:DRAW"BM=K3,116":PRINTR1,J:NE 
XT I:COLOR 15,4,4 
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2030 DRAW" BM16,150":PRINTR1, "VERDE: ESTADO FISICO”: DRAW"BM16., 160":PRINTRI, "AZUL: 


ESTADO EMOTIVO":DRAW"BM16.170":PRINTRi. "ROJO: FSTapp O IO 180 
":PRINTRi, "AMARILLO: SUMA BIORRITMOS" | 
2050 FOR I=DIAS TO DIAS+239 STEP .5:X=I- DIAS+17:Y4=SIN(2X3. 14159X1/23) 1 YS=SIN(2X 


3. 14159*1/28):Y6= SIN(2%3. 14159%*1/33) 
2055 Z=INT((Y4+Y5+Y6+3)%X8) LINE e 111- -Z)-(X, 111).10 


2060 Y4=29-25*Y9: Y5=29-25*Y51 Y6=29-25*Y6:1 PSET(X.Y4),2:PSET(X.,Y5).9:PSET(X,Y6),6! 
NEXT I1:CLOSER1 


2100 X$=INKEYS: IF X$="" THEN 2100 ELSE SCREEN O: GOTO 130 

5000 CLEAR: CLS:LOCATE 4.,10:PRINT"PULSA PLAY PARA PROXIMO PROGRAMA": CLOAD 

9000 DATA " BIORRITMOS"," Este programa calcula los bio-"."rritmos (4! 

sico, emotivo e inte-","lectual), asi como su suma.”,”" Primero has de introducir 
la" 

29001 DATA "fecha de tu nacimiento y a con-"."tinuaci"n la fecha de hoy."." Tiene 

s tres opciones, la prime-"."ra calcula los biorritmos de es-".”"te mes, la segun 

da los del mes" 

9002 DATA "pr"ximo y la tercera los de los”."proximos ocho meseSs."......” PULS 


A TECLA PARA COMENZAR" | 
10000 DATA 31,28,31,30,31,30,31,31,30,31.30:31,"ENERO".,”FEBRERO”. "MARZO". "ABRIL" 
. "MAYO", "JUNIO", "JULIO". "AGOSTO". "SEPTIEMBRE", "OBTUBRE”, "NOVIEMBRE", "DICIEMBRE" 
10010 DATA Tr F ¡4 UT E Epa "N Ss Sis LA y dr: => A A". "L D DIE 18] 0r."G".)"E F E", 
"N 1 Mm " "Cc Ss On, LÍO E j var : "A C 1". ”» 2] vu”, " g” 
10100 DATA O, 224, 156,208,152,144,28,0,0,224.156.200. 136,136.28, o, 0.224.156,200,1 
36,232,28,0,.224,128.220.144.248.80.80,224 

i 
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DIAGRAMA DE SECTORES 


j 


10 *PROGRAMA << DIAGRAMA DE SECTORES >>. 
20 ” 
30 COLOR 15,4,4:KEYOFF: SCREENO: WIDTH40 
40 RESTORE 9000: FORZ=0T019:READES:LOCATEO.Z:PRINTES: NEXT 
50 LOCATES,22:PRINT"PULSA UNA TECLA PARA CONTINUAR" 
60 IFINKEYS=""THENGO 
70 TC=100:PI=2X3.1415926R:R=60:CLS 
75 OPEN"arp: "ASRiI 
80 LOCATEZ2.12: INPUT"NUMERO DE VARIABLES”;V 
90 IF V<1 ORV<>INT(V)THEN 70 | 
100 CLS:LOCATE 2,12: INPUT"CUANTOS DATOS TENDRA CADA VARIABLE"¡D | LN | 
110 IFD<1ORD<>INT(D)ORD>18 THEN1OO | | | 
120 IFD*XV>ZO00THENPRINT:PRINT"SON DEMASIADOS DATOS ":FORT=1T02000: NEXT: G0TO70 
130 DIMA(V,D),V$(V)¿P(D),S(V)+R(D) | | 
1940 CLS 
150 FORZ=1TOV:PRINT"NOMBRE DE LA VARIABLE N."5Z: INPUTVS (2) | 
160 CLS | | | | 
170 LOCATE 2,2:PRINT"VARIABLE "¿V$(Z) 
180 FORX=1TOD 
190 LOCATES,X+2:PRINT"DATO N. "3X5: INPUTA(Z,X) 
195 S(Z)=S(Z)+A(Z,X) a 
210 NEXT l | | 
220 CLS:NEXT . 
1] 
| 


¡ 
p 
t 
| 


230 INPUT"NUMERO DE LA VARIABLE A REPRESENTAR "5VR 
240 IFVR<1ORUR<>INT(VR)ORVR>VTHENCLS: GOTOZ30 

250 CLS:LOCATE6, 12: PRINT"UN dl ld to de POR FAVOR..." 
260 FOR X=1TOD 

270 P(X)=A (UR, X)XATC/S(UR) 
280 -R(X)=A(UR,X)XPI/S(UR) 


j j 
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290 NEXT: CLS 


300 SCREENZ2:DRAW"BM8,0":PRINTR1,"REPRESENTACION DE LA VARIABLE | "¡LEFTS( 
VB (VR), 10) | | | | 
310 CIRCLE (70,100),60,;,,;1-3:DRAW"bm70, 100u60" 


320 DRAW"BM70,35u10dSL3U3G3F3U3" 


330 SR=P1/4 

340 FORZ=1TOD 

350 SR=SR+RI(Z) 

360 XX=495%*COS(SR): YY=RXSIN(SR) 

370 LINE (70,100)- (70+XX,100-YY) : NEXT 

380 DRAW"BM120.24":PRINTRi. "SECTOR PORCENT." 

390 FORZ=1TOD: YM=2*8+24: DRAW"BM136,=YM3 " ¿PRINTR1,USING"RR"3Zz 

400 DRAW"BM192.=YM;3":PRINTRi.USING"RRR.RRR"iP(Z) 

4910 MEXT 

420 DRAW"BM8,183":PRINTRi,"PULSA UNA TECLA PARA CONTINUAR" 

430 IFINKEYS$=""THEN430ELSESCREENO 

440 LOCATES,5:PRINT"MENU DE OPCIONES: " 

450 LOCATE3,7?:PRINT"1.- REPRESENTAR OTRA VARIABLE": LOCATE3. 10:PRINT"2.- INTRODUC 
IR OTROS DATOS":LOCATES. 13:PRINT"3.- TERMINAR EL PROGRAMA" 

460 L$=INKEYS; IFL$=""THEN460 ELSEL=VAL (L$) ¿ IFL<1ORL>3THEN460 

470 IFL=1THENCLS: GOTOZ30O 

480 IFL=2THENCLS:ERASEA, V$.P.S,R:RUNZO 

490 CLEAR:CLS:LOCATE4,10:PRINT"PARA EL SIGUIENTE PROGRAMA": LOCATE4.12:PRINT"PULS 
A PLAY EN EL CASSETTE": CLOAD 

9000 DATAD IAGRANMA DE SECTORES...” Los diaaramas de sectores s 
on sistemas",de renresentaci"n gr fica de datos en,frecuencias relativas.,," Lo 
s datos a representar deben formar",parte de una misma variable. 

9010 DATA.” El proarama lleva incorporada una base".de datos que permite almacen 
ar la infor-,maci"n. La renpresentaci"n ar fica se.realiza por variables. 

9020 DATA." La lectura del diagrama se realiza" .desde la flecha en el sentido c 
ontrario.a las agujas del reloj.,," No se pueden representar m s de 18".datos d 
e variable. 
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2 0/2/12 19 19 12 12 18€ 


fs 


[lp [9 19 [8 


[3 


SIS LRTATATRIS PT 
Y ALIAS LO 


A O A A - + 


| 
| 


i 
p 


LA ABEJA. 


PP 


¡ | 
poj"] 1.45 104 ] ABEJA yA FA | | 103 
|—20-"—COPYRIGHT:——, AN MR M.J. CABELLO MARTINEZ 
y E F. ALONSO-PASTOR ti 1985 | 
| 30 COLOR1,13,13:SCREENO, O: IDTH40: KEYOFF: SCREEN: OPEN"GRP: "ASR1: SOUNDS, 84 FORT=9T. 
| OOSTEP-1:SOUND1,T:FORZ=1TO1SSTEPZ2: SOUNDO, Z*10: COLORZ: DRAW"BMS, 80" :PRINTR1, "LA AB. 
| EJA":¿NEXTZ,T:SOUND8S,O:GOSUB?205 EA! dl LP E PE or E EE | 
40 A A A] 
Lar? ¡ | | | ¡ aa: Ep BS) | 
45 IFINKEYS$=""THEN9S RA | pp : | | | 
47 COLORIS, 1, 1: SCREENO: JS=STRINGS (40,32) :LOCATE ¿S:PRINT" (JUEGAS CON: ":LOCATEO,8 
o PRINTUIOYSTICK (3) ":PRINT:PRINT"TECLADO-(T)":DS$=INPUTR(1):DS=1: 1FDS$="3"ORDS$= 
""THENPRINT:PRINT"ELIJE TECLA: ":GOTOSSELSEIFDS$<>"T"ANDDS$<>"t"THEN4? | 
50 CLSILOCATEO.S:PRINT"DEFINICION DE LAS TECLAS DE MOVI IENTO: "¿LOCATEO, 7: PRINT" | 
(PARA SUBIR LA ABEJA?" :GOSUB9100: S$=L$:LOCATEO, 7: PRINTIS:LOCATEO. 7: PRINT'PARA su: 
BIR "¡LLS | | AA A a] | | 
60 LOCATEO.9:PRINT"(PARA BAJAR LA ABEJA?":GOSUB9100: B$=L$:LOCATEO. 9:PRINTISILOCA | 
TEO. 9:PRINT"PARA BAJAR "iLL$ ¡ | | P | | 
70 LOCATEO, 11:PRINT"(PARA IR A LA DERECHA 'CON L ABEJA?" : GOSUB9100: Dé=L$;LOCATEO | 
,11:PRINTIS:LOCATEO, 11:PRINT"PARA IR A LA lalo La | 
SO, IS AvIMinescOcATEO, IstPnlwrseana ER A La EaouxenDa ata 


1 
+ 


CIAO AAA AAA 


EO, 13:PRINTIB:LOCATEO, 13:PRINT"PARA IR Á LA IZQUIERDA "¡LL$ | | 
85 LOCATEO, 15:PRINT"(PARA ABANDONAR EL JUEGO?" :GOSUB?100: AB$=L$:LOCATEO, 
J$:LOCATEO. 15: PRINT"PARA ABANDONAR "¡LL$ | | l-1| 
87 LOCATEO, 18:PRINT"(NIVEL DE JUEGO? (1 DIFICIL - 5 FACIL)": GOSUB9100:NI=VAL (Lé) | 
+IFNI<1ORNJ>STHENS7ELSELOCATEO. 18: PRINTIS:LOCATEO, 18:PRINT"NIVEL"5NJ:NI=NIKLO 

90 LOCATEO,21:PRINT"SI ESTAS CONFORME CON ESTAS TECLAS PULSALA TECLA S. SINO CUA 
LQUIER OTRA TECLA" | Eos! | | | L] 

100 L$=INKEYS: IFL$=""THEN1OOELSEIFL$<>"S"ANDL$<>"s"THEN47ELSESCREENZ. 0: GOSUBI200 | 
105 SCREENZ:PT=0:NV=1:VD=5:KD$=STRINGS (4,46) | | | 


| | | | | | | 
| | | | | 


S:PRINT. 


4 


| 


j 3] ; 
i 


TIIITITITESTS 
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| 4 
j 

] j 

¡ 

| 


i | 
110 GOSUBS200: FT= =0 1 | 


120. SCREENZ2: Y=7: FORX= OTOZS5STEP8: GOSUB9400; NEXT: Y= 


1 
j 
¿ ; a + 3 
| | 


175: FORX= -OTOZ55STEP8: G0SUB9400 


¿NEXT:X=01 FORY= 16T0175STEP8: GOSUB9400: NEXT: X=248: FOR rRY= 16T0175STEP8: c0SUB9400:NEX 


E ! ¿ 

130 GOSUBSOOO: : GOSUBS300: FORY= =0T029:Y (Y, 0)=0: Y (1.1) 
190 5P= =9:FORZ= -1TOINT (NV/5+1) : GOSUBB100! NEXR 

150 N= RND (-TIME):FORZ= 1TONVX1OSTEPNUV: O= INT(Z/10+1) 
160 x0= INT(RND(1)%30+1):Y0= INT(RND(1)X1943): IFY(YO 
N160 


019350! | ss | | 

180 NEXT: 1ón 2 | | 

185 FORXI=1T023: IFPOINT(XIX8, y YAXS) FLANDPOINT(XIX8, 
190 NEXT: 1FX= 26THENYA= YA+1:GOTO185 

200 SX=8:3Y=0:XA= xAxX8: 'YA=YAX8: 6OSUB9S00: SOUND1,0:S 
EXT: SOUNDS, O 

205 ONSPRITEGOSUB7000: SPRITEON 

210 D=STICK(DS) | | | 

212 Lé=INKEYS: IFI.8=ABSTHENSOUNDS,-0; :GOTOLOOOO 

215 FORT=1TONJ: NEXT 

220 IFL$=S$0RD= 1ORD=SORD= 2THENSY=- 8:SX=0 

230 IFL$= B$0RD= SORD=40RD=6THENSY=8;SX=0 

240 IFL$=D$ORD=3THENSY=0:SX=8 


¿250 IFL$=I$0RD=7THENSY=0: s:=-8 


270 SOUNDO, 100: SOUND1. 1: SOUNDS, 5: XA=XA+S5X: YA=YA+SY:; 
10 
mes SOUND1, O: FORT= -255TOOSTEP- 1; : SOUNDO, T: NEXT: 'NY= =NV 
7000 —BEEP: ISPRITEOFF: FT=FT+1:CL=Y(1 T(YA/8)¿0):PT= =P 
PRITEKT+1,(-8, 191),,CL: IFCL>4THENP TSPRITEKT+2, (-8 
7010 GOSUBS000: SPRITEON: ce | 
38000 E [NERO 0)- (250, di DRAW"BMSO, o": 
ARARUIPT ERUAN oleo elote till ll teclea 
s100 N= =ENI (-TAME)-:JsDE =RND(1):XI= INT(RND(1)*30+1):XF= 
IA1943) 53 YR= INT(RND(1)%19+3) :IFABS(XF- XI) >120RABS(Y 
RYF-YI=OTHENS100ELSEIFKD>. STHENS140 | 
Sd IFABS (XF<XI)<Z0RABS (YF-Y1)<2THENS100 


260 SOLO, 100: SOUNDA 1:50unO =6THEN9600- 


8120 FORK =XITOXFSTEPSGN(XF- XI) 3X=K1X8: Y= Zur: 0osus 


2140 FORKI= YITOYFSTEPSGN(YF-Y1):Y=K1%8:X=X1%8: GOSU 


8200 POKE62456!. PEEK162450|!') :POKEG24571, PEEK (62459 
ATE?, 1:PRINT"F R U TAS :":SP=10:FORO=1T06:X=5: Y= 
-OSUB9300, 9 


¿10: BEEP: NEXT 


8210 LOCATEO, e a pra: bola TEC 
8220 IFINKEY$=""THENS210ELSERETURN | 


3 ARYSUDIRETURN | 


8300 COLOR13: LINE (166, 184)- (200, 1194111, BF +4RAW". BM 


| j 4 ; 
9900 DATA” | LA ABEJA" . Es un juega 
Ss importante es comerse muchos toria Si em 
ica y tienes que procurar no chocar, ,con e 


| | | | 
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A A: 5 


| | | | 


| ¿ 
| 


=0: ¡NEXT | Ue e E e 


: IFO>6THENO=6 | 


+0) < >OORPOINT (X0*8, YOX8)< >1THE 


+ 
$ 


| | | 
170 xO= e e Y(YQ,0)=0:Y(YOy4- =SP+YB=Y0%8+SP=SP+1:10N0G0SUB9300,9310+2320,9330,934 


¿ 


(YA+1)X8)=1THENXASXI:XI=25 


j 


OUND38,8: FORT= 255700; SOUNDO + TEN 
j 


pr AS 


:SOUNDA+S '¡GOSUB9500: IFFT<1OTHE 
| | 

1: GOTOL1O 1 | REEL: 
+CLKLO: iejrevcnritafel, q fer 
.220)..CL+1 | 

-:PRIINTAS. ea UNTOS: RR 


1] 
4 


+ . - . cb y + + e 


INT(RND(1)X30+1) 5 YI=INT(RND(A 
¡Y1)>14THENS100ELSEIFXF-X1=00 
| 4 


j 
¿ 


de 


B9400: NEXT: RETURN | | 
B9400: NEXT: ¡RETURN! | 
l) ¿SCREEN1:WIDTH3O: COLOR15: Loc 
O%3: X0=40: YO=0%24: SP=SP+1:0NOG 


2310,9320,9330,9340,9350:LOCATE9, Y PRINTKD: (TAB(1IS) tUSING"AR' PUNTOS "30% 


LA" 


).189":PRINTR1,USING"V 1 DAS 


emocionante en el que lo"..m 
bargo. las paredes te impedir 
das! po | 


la 1 BA A : 30 IN PO 12 A 5d , a E LB 1 de 


> e 


fo fo fo 12 /3 fa lp [9 [9 JP /8 


NCAA AAN MA 


-2500.. PUTSPRITEO. (XA.YA).10,0: RETURN. 


9010 DATA..." Las teclas de movimiento. de la abeila”, [podr] s elegirias tu mismo. 
1," PULSA CUALQUIER TECLA PARA COMENZAR” | 
9100 L*4= INKEYS: LE a EI =L$ 


| 


9110 IFL=31THENLL$="CURSOR ABAJO" LSEIFL=3OTHENLL$="CURSOR ARRIBA"ELSEIFL= Jo THEN 


—LL$="CURSOR lcd a a tl ts ds id DERECHA"ELSEIFL= dad 


9120 RETURN ET | p 

9200 RESTORE9210: FORSP= oTO8: T$="":FORX= OTO7: El eS ld A la AA e 
=T$:NEXT:RETURN. | | | 

9205. FORZ= 1TO10: NS IZ) ="MSX":PTIZ)= =100: NEXT: : S$= CHRS (30) + Be=CHRE (31) + D$=CHR$ (28): 
1$=CHR$ (29) : RETURN | | 

9210 DATA36,24, 90, 126,102,126, 102,24,8, 28,46,111, 95. 95.46, 28, 8,110,223, 191, 191,9 
4.56,0. 0.108, 190, 1191. 191,95, 126.56.6,6.14.30.,60, Sé, 28. 12 | 

9220 DATAZ4. 36. 66. 129, 129,66,36,24,0, 24, 52, 126, 5, 70,44, 24,0.0,0.60, 90.219, 219, 90.6 
0,102,24,0, 07050; OE Y A + 

9300 PUTSPRITESP. (XO. YO),3,1: RETURN | 1] 

9310 PUTSPRITESP, (X0.YO).6.2: RETURN | | 

9320 PUTSPRITESP, (X0.Y0O);%,3: RETURN 00 | | | | 

9330 PUTSPRITESP, (X0O, YO) +11. 4: RETURN i | 

9340 PUTSPRITESP. (XO» YO).12,5:SP=SP+1: PUTSPRITESP, (X0; YO ¡[37 GT7RETURN +] 
9350 PUTSPRITESP. (X0.YO),8,7:SP=SP+1:PUTSPRITESP, (XO; YO), 2; 8: RETURN 

9400 LINE (X,Y)-(X+6,Y+3),6:BF:LINE(X,Y+5)-(X+3,Y+7) 6, BF: LINE (X+5, Va) AER 7) 


+6, BF:RETURN | | | | | 


j 


| ; 
9600 SOUNDO., 14: SOUND1. 200) SPUNDB, 8: FORZ=1T0501 PUTSPRITEO, (XA, YA). 10,0: PUTSPRITEO 
¿ (XA, YA) ¿6:0:NEXT: SOUNDS, | 

9610 VD=VD-1:GOSUB8300:FORT=1T01000: NEXT: IFUD>)OTHEN110ELSE10000 | 
10000 SCREENO:COLOR?: IFPTCPT (10) THENIOO40ELSEPOKE42456! . PEEK (62458!) :POKE62457!, 
PEEK (624591) 7SCREENITLOCATES, 4: INPUT" (TU NOMBRE"+NMB:PT(10)=PT:NMB(10)=NM$ 
10010 FORZ=1TO1O:FORZZ=1T09: 1FPT(ZZ)>=PT(ZZ+1)THEN10030 | e. 
10020 SWAPPT(ZZ) /PTIZZ+1) 3 SWAPNME(ZZ) + NMB(ZZ+1) | | 
10030 NEXT:NEXT | | | 
10040 CLS:LOCATES;,O: PRINT "PUNTUACIONES: *: FORZ=1T010: LOCATE1,Z+3: PRINTLEFTS (NM$ (2 
) 10) :LOCATEZO, Z+3:PRINTUSING"RARRRR"+PT(Z)3NEXT | E | 
10050 LOCATEZ,21:PRINT"PARA OTRA PARTIDA PULSA O":LOCATE 22: PRINT"PARA OTRO PR 
OGRAMA PÚLSA P | | | 7 | 
10060 L$=INKEYS: 1FL8=""THENIO0SOELSEIFLE="0"ORLA="0"THENSOTO4ELSEIFLE>"PtANDLO 
£>"p"THENIOO60 | E Po E 
10070 CLEAR: COLOR1S, 4,4: SCREENO: LOCATE4, 10: PRINT"PARA EL SIGUIENTE PROGRAMA": LOC 
ATE4, 12:PRINT"PULSA PLAY EN EL CASSETTE" |... po TS 
10080 CLOAD | | | | | | | 
MA 


p 


| 
| 


4 


¡ ¡ | | 
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SE 


A 


Ly 


POS 


A 


PALIZA A 


PA 
RAR 


INTEGRAL 


S KEYOFF: SCREEN O: WIDTH 40: COLOR 15,4,4:FOR I=1 TO 21:READ X$:LOCATE 0.1: PRINTXS 
¿NEXT 1 | 

6 X$=INKEYS: IF X$="" THEN 6 ELSE SCREEN O: WIDTH 39 

10 COLOR 15.4.4:KEY 1,"run 190" +CHR$(13) 3KEYOFF: GOTO 5000 

100 DEF FNF(X)=-1/(X%X):F$="-1/(X*X)" 

110 GOTOSOO | | 

150 COLOR1:PLAY "L8ABCDEF":LINE(0,0)-(256.10),9.BF | 

152 LINE(O,10)- (256,124) .7.BF:RETURN 

159. PLAY"L32C":LINE(O, 124)-(256,162).11,BF:RETURN 

500 OPEN"GRP: "ASR1: COLOR 15. pe 12:SCREEN1:LOCATE 0.6: PRINT" (QUE METODO. QUIERES US 
AR?" 

502 LOCATE 2. 10:PRINT"1: TRAPECIO": BEEP:LOCATEZ2.12: PRINT"2: SIMPSON": BEEP:LOCATEZ, 
14:PRINT"3:NEWTON":BEEP:LOCATEZ,16:PRINT"4: TRAPECIOS COMPUESTO": BEEP:LOCATEZ2.18: 
PRINT"5: SIMPSON COMPUESTO": BEEP 

510 X$=INKEYS$: IFX$=""THENSIOELSEIFXS< "1"ORX$>"5"THENS1O 

520 CLS:BEEP: INPUT"VALOR INICIAL"¡A:BEEP: INPUT"VALOR FINA "¡B; 1FX$="4"0RX8="5"TH 
EN BEEP: INPUT"NUMERO DE SUBDIVISIONES":N: BEEP 

530 ONVAL (X*%) GOTOS50. 600.700.800.900 

540 DRAW"BM16.24":PRINTRi. "FORMULA DEL METODO": DRAW"BM8.48":PRINTR1,"t":DRAW"BM8 


j 


¿56" :PRINTR1."u":DRAW"BMió. 0 ltd sd si ill a e A ll 1d Ml Bs 1 dd ls E 
2": PRINTRi."fw" ¿RETURN ! ; 
545 DRAW"BM8. AN A DRAW"BM8. Véa 0d nd dd 5 dl DRAW"BM8. 106" ¿PR 


INTRi."b="3B EN | 
547 GOSUB154: DRAW"BM8. 136": PRINTR1, "SOLUCION: "¿S: RETURN 

550 SCREENZ2:GOSUBI15O: DRAW"BM70, 2": PRINTR1. "METODO DEL TRAPECIO": GOSUBS40: DRAW " BM 
40.52":PRINTR1." W WWW Wif(a)+f(b)¿":DRAW" BM40.46":PRINTRi.”(b- a) ":DRAW"BM56, 5 
3":PRINTR1,"2":GOSUB1000: GOSUB545: GOSUBS47: GOTO9S5O. 

600 SCREENZ:GOSUB150: DRAW"BM70,2":PRINTR1, "METODO DE SIMPSON"; GOSUBS40: DRAW"BM40 


.32":PRINTRi."” Wif(a)+af(arh)+f(b)é":DRAW"BMG1, 46" :PRINTR1.*"h” 
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SITO 


el 1 DA! Mem A La) 2D OO 2 OS OA E Es LIO da 


610 RAW" ma + 585 PR NTRA, "3"! DRAW"BM .76*3PRENTAL,*h (8- ed dd nd ld a 


OSUBS40:; morata 
2":PRINTR1, "+4 (b prono 


1) +" DRA "BM192, 


, "ME ODO. DE E 
: 58": PR NTRA. “8 : DRAW"b 


8.76":P INTR1+"h (b- a)/3* 


4 


! 


e el e] 


e: 
¿2*2PRT TP, “mM ODO D rm 


WA IF ORO EM: DRAN"BMAL, Dad 
- "N*EDRA "BM73.43":PRINTR1,"N" ns 
+ih:h=(b-a)/N":DRAW"BM16,77":PRI TRA, DRA" Bm 
A 55":PRINTR1:"i | | 1-1":G0SUBIS IS: DRAW"BM 
no .2":PRI rm; smetono DE s1mesoN c MPUESTO?: GOSUBS o 
ho! (xro 1 144 Je" ¿DRAW"BMSZ,43":PRINTRI, “no pl 
"a +ihrI="0,2, ¿2N):h=(b= -a)//2N": DRA "5PRINTRA 
Ll p inI":DRAW"BM100.55"¿PRINTR1+"á i+2ric0s)|-. 
OS O: GOSUB 45: deuda. 116": PRINTRA "IN="GN: GOTO?SO | | | E PR 
LAY"L4D "LINE (0,68) -P256,192),14,BF:COLOR4:DRAW"BM15, 163": PRINTR y "LECAMBIO 
FUNCION": DRAW"BM16,173":PRINTR1,"2: CAMBIAR DE METODO. O VALORES”: RAW" Bm1 
My PRINTR1."3: PIÑA IZAR":COLORIS 


HEN9SSELSEIFX$="1"THENSOOOELSEI x8="2"TH NRUNIDO LSEIFX$=5 


j | ) ' 


4 ; 


S=(B-A) bie RETURN 
H=(B-A) 


2:S= =HX (FNF (A) +4% NF (A4+H) 
H=(B-4)/3: 2 dE 
H= (B-A)/N:S= 

NEXTI: ¿RETURN 


4 m 4 1 + 
FNF(B))/3:RETURN | 

)ASXAFNF (A+2%H) +FNF(B))/8 
S+ ((AERRIXH-A-(1-1)%H) 


=0:FORI TON: x15 di Yen E F(A+2XIk -H):xX3= 


VEDERT! 


A a continuacion Flor, 


NO: LOCATE14,10:PRINT"PU SA PLAY": LOCATE1 T 
Loca 11,14: -PRINT*PROXIMO PROG AMA": CL AD 7 
En | INTEGRACION NUMERICA",., e 
pr ntegral s definidas por Epa mor" 


roducir la funci"n","au 
100 Y: D lsar Fi: ar t.1 
elegir el mOtodo a". "u 
| troduce as como 


LEY 


| paja 
ilizar y PTERON nterval 


XAXKX dis no como x 03. EOS 


o ha lili | 
PULSA TECLA PA Dx 


mM E mo R 1 o | 


4 
| Jo | 
| ¡ 
OSUB9200: SOUND1.1: SOUNDS 6: X=50: 
STOY:PL SPRITEZ, (4+K)+ Cs +SOUNDO ¿K+LOS+NE 


| 


E 
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40 C=15:FORZ=12TO1STEP-1:FORX=2S5TOOSTEP-3: SOUND1 + Z: SOUNDO+ X: NEXT: NEXT: SOUNDS, 0 

SO SCREENO: WIDTH39: RESTORE9000: FORZ=1T022: READE$:LOCATEO, Z:PRINTE%: NEXT 

60 IFINKEYS$=""THEN60ELSECLS 

70 LOCATEO. 10:PRINT"JUEGAS CON LETRAS (L) O CON NUMEROS (N)" | 

30 SINPUTS (1): 1F ISO? "LUANDISC)"1"ANDIS<>"N"ANDIS<>"n"THENSOELSECLS 

90 LOCATES. 10:PRINT"ELIGE EL NIVEL DE JUEGO: ":¡PRINT:PRINT*1.- LONGITUD 10";PRINT 
«PRINT"2.- LONGITUD 20":PRINT:PRINT"3.- LONGITUD 30" | 

100 N$=INPUTS (1) :N=VAL (N$) : IFN< 1ORN>3THEN2OELSEN=NX10 

110 IFI$="M"ORJ$="n"THENGOSUB9100ELSEGOSUB2200 

120 LINE(0,0)-(255.110),6:B:LINE(O,111)- (255,130): 6: BF 

130 GOSUB38000: GOSUB8100: GOSUB8200 

150 PT=0:C=0:A(1)=1:ERASEA: DIMA(N) : FORZ=1TON 

160 A(Z)=INT(RND(-TIME)XTP+1) 

170 C=C+1:GOSUBSIOO 

175 FORZZ=1TOZ 

180 X=INT(RND(1)X245+2):CC=INT(RND(1)*14+2) | 

190 PUTSPRITEO. (X, 110) 6.0: SOUND?7, 248: SOUNDA , CC: SOUNDS; 6: FORY=-8T0110:SOUNDO + Y +1 
O: PUTSPRITEZZ, (X,Y),CC,A(ZZ):NEXT:PUTSPRITEZZ: (-16:191)+0+A(2Z) :PUTSRRITEO: (-16: 
120), .0: SOUNDS, O 

210 COLOR15:NEXT:DRAW"BM40,180":PRINTR1+ "(CUAL ES LA SECUENCIA?” 

220 CX=10:CY=30:LL=0:POKE62456! + PEEK(62458!):POKE62457! + PEEK(62459!) 

230 FORZZ=1TOZ 

240 Lé=INPUTS(1)1L=ASC(L$)-7IFTP=10AND(L<4B0RL>57)THENZ240ELSEIFTR=26ANDL>20THENL= 
L-32 

250 IFTP=26ANDL<ó6SORL >P?O0THENZ240 

260 IFTP=1OTHENL=L-47ELSEL=L-64 

270 IFA(ZZ)<>LTHENPLAY"02C":PT=PT-1:GOSUB8200:LL=LL-1:60T10240 

280 LL=LL+1:DRAW"bm=cxi.=cyi "3 IFTP=10THENPRINTR1, CHR$(47+L)ELSEPRINTRI : CHR$ (69 +L. 


300 BEEP:CX=CX+25: IFCX>240THENCX=101CY=CY+20 
310 NEXT:LINE (30. 180)-(240,191),1+BF:LINE(10,10)-(253,100),1,BF: IFLL=ZTHENPT=PT+ 
7: G0sSUB8200 ¿ j 


320 NEXT 
330 IFN=30ANDPT>2790RN=20ANDPT>1570RN=10ANDPT >49THENDRAW"bmé0, 50”: PRINTR1 + "FELIC 
IDADES!!'!":DRAW"BM40.70":PRINTR1. "LO HICISTE MUY BIEN": SOUND7, 248: SOUND1, 1: SOUND 


8,8: FORZ=255TOOSTEP-1:SOUNDO, Z: FORT=1TO10: NEXT: NEXT: SOUNDS. O 

340 SCREENO:LOCATE14,5:PRINTUSING"PUNTOS: Ref" 5 PT:LOCATES, 12:PRINTYOTRA PARTIDA ( 
P) O TERMINAR (T) ¡ ! 

350 REINPUTS (1): IFR$="P"ORR$="p"THENRUNELSEIFRS< >"T"ANDR$< >"t "THEN350 

360 COLOR15,4.4:CLS:LOCATE4, 10:PRINT"PARA EL SIGUIENTE PROGRAMA" :LOCATE4, 12: PRIN 
T"PULSA PLAY EN EL CASSETTE” 

370 CLOAD 

38000 LINE (50, 135) - (205, 145),13,B:LINE(160, 136) - (200,144) , 1, BF: COLOR7: DRAW"bm80: 1 
37":PRINTRi.USING"LONGITUD: RR" iN:RETURN ¡ 

3100 LINE(50,150)-1205,160),12,B:LINE(160, 151)- (200,159) , 1, BF:COLOR10: DRAW"bmBO0: 
152" :PRINTRi. USING” CARACTER: RR"3C:RETURN | 

8200 LINE(50, 165)=(205.175),4, B:LINE(144, 166) - (200,174), 1+BF:COLOR15: DRAW"bm80; 1 
67":PRINTRi,USING"PUNTOS: PPP" iPTIRETURN 

9000 DATA" MEMORION"...” Es una prueba a tu memoria tu MSX",es 
t seguro de que no tienes tanta.memoria como Ol.+.+*..” Pero. quiere que le demue 
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—] 
e, 
7 
pS 
O) 
OS 
IN 
O 
a 
DD 
a 

YU 
RO) 

“> 

O 

0 

JU 


70 


JIJI 


stres hasta".donde eres capaz de recordar con una.secuencia de símbolos cue tu o 
rdenador 


9010 DATAte va a ir presentando en la pantalla.+..” Adem s de poder trabaiar co 
n nkmeros"."o letras. puedes elegir el nivel de".MEMORION que desees con secuenc 
ias de."lonaitud 10.20 " 30 caracteres."...." PULSA CUALQUIER TECLA PARA COMENZA 
er" ; " H H 


9100 SCREENZ, 1: COLORO: FORZ=48T057:DRAW"bm0,0":PRINTR1,CHR$(Z):T$="":FORX=0T07:T5 


=T$+CHR$ (VPEEK (X)) NEXT: SPRITES$(Z-47)=T$:LINE(0,0)-(10,10),1,BF:NEXT: TP=10: GOSUB 
9300: COLOR15: RETURN 

9200 SCREENZ2, 1: COLORO: FORZ=65T090: DRAW"bm0.0":PRINTRi.CHR$(Z):T8="":FORX=0T07: Ts 
=T$+CHRS (VPEEK (X) ) ¿NEXT :SPRITES5(Z-64)=T*$:LINE(O,0)-(10,10),1,BF:NEXT: TP=26: GOSUB 
9300: COLOR15; RETURN 

9300 T*$=STRING$(8,255):SPRITE$(0)=T$: RETURN 

$500; DATA13,13,5,4,13,7,15/3,19,10,9,9,15,6,14, 15 
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paa — 


30 
90 
100 
110 
1120 
130 
.1940 
150 


160 


170 
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| 


| Lelolo.oLoLo.oLo_o 
000 + PROGRAMA "] 
o 0_lo | LUIS SANGUINO - 1986 
| 9SoODos000000 21 


O HIRO Y EVE DE BIFICULTA 
O- TITULO Y-NIVEL-DE DIFICULT 
-0_0_0_0_0_0_0_0_0_0._:0_0_0_0 

OLOR 1,7),13 | 
CLS: SCREEN 3 | 
OPEN"GRP:" AS Ri 
PSET(20,80),7? 
PRINTR1,| "DERRIBO" | | 
FOR I=1 TO 1200:NEXT: e 
¡CLS:5CRE | 


Ni-14-3 
LOCATE 0,10:PRIN 
LINE INPUT" o 
AI=VAL (R 3 

IF AI>6 DR AI<A4 : 
REM LOLOLO O 
¡REM-TOL-OFOLOOF0]—TPECOTA 0 
REM |-—|—L0-:0104-0--0-:0-10-10-10-10-* 
CLS:KEY OFF:SCREEN 2,2. | 
B$="":FORI=1T0 S|:READ A: B$=B$+ 
NEXT: SPRITES (0)=B$ 


DERRIBO" 


"_0_0_0 NIVEL DE 
000 DE 414 /6| 


HEN BEEP:C s OT 


E 
0_0_0_0/10 0 


ORI=1T0| 22 DN 


LEAD. +CHRS$ (A) 
JEXT:SPRITES ( 2 )=C8 
EM E ZOO ICO UA 
EM 0010-00-00 

| MO a PE A IO fome 


| 


o0_0_0 


1SX - 1986 
el 


dual 
PARED ae ES 0_0 
Pa DR de = l 


000 
_0_0_0 
0000 
0_0_0.0 
D--0-— 

DO00O0 


-DIFICUL 
0000 


¡0 


0_0_0_0._.0_0_0_0_0_0_0_0 


a) 


o 


oO 160 


TAD XXX" 


e +. - 


"¡RS 


300 REM 0-—0--B—0-—0.-0-0-0-0—0-0 
310 FOR S=5 TO 255 STEP 10 
320 LIME (S-4,0)-(5+4.6).15.BF 
330 LINE (S-9,8)-(S-1,14),2,BF 
3940 LINE(S-94.16)-(5+94.22).11,BF 
350 NEXT 
360 REM Q 0_-0_0_0_0_0_0_0_ 
370 REM 0-0 MOVIMIENTO DE LA PELOTA 00 
380 REM o 0.0.0. oLo0.o.o._ 0000 /oJo'0:0o0-lo o.0.0-D.0 0.0. 
390 Z=186:J=130 
400 M=RND(-TIME) 
410 ¡XI=A1:YIFAI 
420 X1=INT(RND(1)X250+1):Y1=30 
2430 X=X1+XI 
490 Y=Y1+YI1 
450 IF X>255 OR X<0 THEN BEEP:XI=-XI:GOTO 430 
460 IF Y<O0 THEN YI=-YI:GOTO 430 
470 IF Y>192 THEN 780 
480 PUT SPRITE 0, (X,Y),1,0 


490 REM 0.0_0_0_0_0_0_0_0_0_0_000000000000 
500 REM 0 0 O CONDICIONES DE CHOQUE 000 
510 REM 00000000,.0.0000000 o 000000 


520 ON SPRITE GOSUB 970: 1F YI>O THENSPRITE ON 
530 IF POINT (X+1.Y)=15 THEN 540 
535 IF POINT(X+4,Y)=15 THEM 540 ELSE 560 
540 XS=(INT(X/10))X10+5 
550 BEEP:T=T+100:LINE(XS-4, 0)-(xS+4, 6).7.BF:1F YI<O THEN YI=-YI:GOTO 440 
560 1F POINT(X+1,Y)=11 THEN 570 
565 IF POINT(X+4.Y)=11 THEN 570 ELSE 590 
570 XS=(INT(X/10))X10+5 
580 BEEP:T=T+10: LINE(XS-4,16)-(X5+4,22),7.BF:1FYI<O THEN YI=-YI:GOTO 440 
590 IF POINT (X+1,Y)=2 THEN 600 
595 IF POINT(X+4,Y)=2 THEN 600 ELSE 650 
"600 XS=(INT((X+5)/10))X*10 
610 BEEP:T=T+50: LINE(XS-4,8)-(XS+4,14).7,BF:IFYI<O THEN YI=-YI:GOTO 440 


620 REM 0000000000000 0'000000000000 
630 REM _0_0 MOVIMIENTO DE LA RAQUETA 0 O 
640 REM 000000000000 000000000O DOO0oODO 


650 D=STICK(0) 

660 IF D=3 THEN J=J3+4 
670 IF D=7 THEN J=J3-4 
680 IF D=1 THEN Z=Z-6 
690 IF Z<=168 THEN Z=168 
700 IF D=5 THEN Z=Z+ó6 
710 1F Z>=186 THEN Z=186 
720 IF J<8 THEN J=8 

730 IF J>247 THEN J=247 
740 PUT SPRITE 2 .(J-8,Z-3), 1 , 2 
750 X1=X: Yi=Y 

760 GOTO 430 
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770 
780 
290 
3800 
310 
820. 
830 
840 
850 
860 
870 
880 


890 


900 
910 
920 
930 
940 
950 
960 
970 
980 

o; 


YI=-YI:GOTO 440 

H=H+1 

IF H>4 THEN 860 

LINE (0,Z-3)-(255,Z+3),7,BF 


FOR I=1 TO 25:BEEP:NEXT 1 

GOTO 390 : 

REM o000.0.0_0_0_0_0_0.0.000000000000000 
REM 0 0 MARCADOR Y FIN DEL JUEGO 00 

REM 000000.0.0.0.00000000000000000 
SCREEN 1 

LOCATE O.10:PRINT" 0 0.0 O FIN DE LA PARTIDA 0000” 
PRINT:PRINT" 000000 0 PUNTOS="3T11" 0000 ooo" 
PRINT:PRINT"QUIERES JUGAR OTRA VEZ S/N? 

A$=INKEYS 

IF As$="S" OR A$="s" THEN H=0:CLEAR:GOTO 150 

IF A$="N" OR A$="n" THEN CLS:END 

GOTO 900 

FOR I=1 TO 255 

PRINTIS¿CHRS(IJG" "s 

NEXT 1 

BEEP:SPRITE OFF: YI=-Y1:RETURN 

DATA 32, 112. 248, 112, 32, 255, 255, 255; 255, 255: 0: 0» 


0402851255) —255+2585+-—-2557 


SI PREFIERE SUSCRIBIR 


POR, TELEFONO... 
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SE 
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o» 


O; 
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IAN KEY-COVER 


“900 a 
A 2 SADO 
20 


AMSTRAD com arcenacos rersora 


1000500500 
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2050000003015 
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¡AN KEY-COVER, ES EL PROTECTOR IDEAL PARA EL TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 

PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: 

— PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA * 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 

— AJUSTE PERFECTO EN SU ORDENADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 

— TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 

— PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 

— RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 50 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. 

— MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 

— DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 


Para Programadores MSX 
tu fiel compañero. 


Esto no es un libro para el 
principiante novato, al con- 
trario, introduce al progra- 
mador MSX “dentro” del or- 
denador, para mostrarle exac- 
tamente como funciona y co- 
moobtener el máximo partido. 


Los autores han dividido 
su libro en dos partes. 


La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela- 
ciona con los ordenadores 
MSX, y una introducción có- 
digo máquina. Encontrará ex- 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. 

La segunda parte se dedica 
al uso del lenguaje ensam- 
blador en el sistema MSX. Los principales apartados incluyen los 
puntos: 


— El procesador de pantalla de vídeo. 
— El circuito de sonido AY-3-8910. 
— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rapidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 pts! 


AS 


«qOl= fuel 
TARJETA DE PEDIDO | | | | | | [ ] 
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PROGRAMACION 
CODIGO MAQUINA IGRAMAG 
La llegada de standar MSX, = 
marca un paso significativo 
dentro del mundo de los or- 
denadores domésticos. Ofre- 
ce infinidad de excitantes 
oportunidades para progra- 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 
NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip- 
ción muy detallada de las ru- 
tinas individuales de un sim- 
ple juego: “INVASOR DEL 
ESPACIO”, y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas 
en Basic. S 

e Aprende lo fácil que es incorporar rutinas en código 
máquina dentro de tus programas en Basic. 

e Usa el código máquina para crear sonido y gráficos. 

e Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoria que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 

P.V.P. 1.200 pts. 


e La mayor variedad de libros de microinformática. 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 


e Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL 


Distribución 
Chiquinquirá, 28. Locai 4 (Cocuy). 28033 MADRID. 


Telef.: 764 50 95 


Libros, Revistas, Suscripciones, Importación y 


Fdo.: 


Cassette virgen 


AUDIO-VIDEO-COMPUTER 


MEJORES pa 


CURSO DE 


BASIC + 


MICROORDENADORES 


RTYUIOP ETS 


— Introducción a 
la Informática 
— Electrónica [con experimentos) 


0WE 
mASoFRSO HI 


El Curso CEAC a Distancia, — Contabllidad 

BASIC + Microordenadores, — Fotografía 

le va a introducir paso — Curso de Video 
— Decoración 


a paso, con un cuidado 
método, en uno de los temas más ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

apasionantes de nuestros días: DEL DECRETO 707/1976 Y ALA ORDEN MINISTERIAL DE 5/2/1979 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 

lenguaje de alto nivel. 


1 deseo recibir a la mayor 


h 5 brevedad posible información 
” 48 ff sobre el Curso de: 


l Mict Nombre y apellidos Edad 
: 0% Domicilio 
| WU. NO s. PISO Pta. Tel. 
0) E. Postal Población 
Provincia 
CENTRO DE ENSEÑANZA A DISTANCIA - Profesión 
AORZADO POR E MINISTESO DE CEAC. Aragón, 472 ¿e Sas 3306 
A pia Te ant Eacas 


ona 
al: (93) 345 j Ñ aro el 
Tel.: (93) 245 3306 du Bi porcelana 


